home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AllegroCL11 / Examples / sample-init-1.lisp < prev    next >
Encoding:
Text File  |  1987-10-26  |  842 b   |  27 lines  |  [TEXT/CCL ]
  1. ;short sample init file
  2.  
  3. ;set some environment variables
  4. (setq *load-verbose* t)
  5. (setq *break-on-error* nil)
  6. (setq *save-doc-strings* t)
  7. (setq *warn-if-redefine* t)
  8. (setq *print-case* :downcase)
  9. (setq *print-array* nil)
  10. (setq *verbose-eval-selection* t)
  11. (setq *emacs-mode* nil)
  12.  
  13. ;make Fred windows zoom to a smaller size so that the list-definitions dialog
  14. ; can be seen above the top of the window
  15. (ask *fred-window* (setq window-zoom-position
  16.                          (make-point 6  (+ *menubar-bottom* 6)))
  17.      (setq window-zoom-size
  18.            (make-point (- *screen-width* 4)
  19.                        (- *screen-height* 3))))
  20.  
  21. ;load in the fred extensions from the library folder
  22. (require 'fred-extensions)
  23.  
  24. ;give the Close menu-item the command-key equivalent 'W'
  25. (ask (ask *file-menu* (find-menu-item "Close"))
  26.   (set-command-key #\W))
  27.